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VIC holder styr på dine 
bankoplader - eller den 
ryster posen og råber op 


»Hvis man nu kunne lade 
computeren holde øje med 
bankopladerne, kunne man 
klare mange flere«. Sådan 
lød et hjertesuk fraenafVIC- 
tors venner. Han er medlem 
af en walkie talkie klub, og 
mindst én gang om ugen går 
det løs. 

- Jeg vil jo gerne støtte foreta¬ 
gendet ved at købe mange 
plader, og der er god tid til at 
taste dem ind i VIC på for¬ 
hånd, fortsætter vores ban- 
koman, som vi naturligvis ik¬ 
ke kunne lade i stikken. Det 
program, vi her præsenterer, 
kan holde øje med temmelig 
mange plader på én gang, 
men det skal erkendes, at jo 
flere plader, der kommer til, 
jo længere tid er programmet 
om at læse sig igennem alle 


tallene og kontrollere, om de 
findes på pladerne. Når et tal 
er fundet, skal det j o også lige 
tjekkes efter, om de fire an¬ 
dre tal i samme række har væ¬ 
ret råbt op - og har de det, er 
der jo også en mulighed for, 
at de to andre rækker allerede 
er hjemme. Men op til en snes 
plader kan man vist godt på¬ 
tage sig. 

På bånd 

For at gøre livet lettere, kan 
det lade sig gøre at gemme de 
plader, man én gang har ind¬ 
tastet, på bånd. Som en eks¬ 
tra funktion kan program¬ 
met også fungere som oprå¬ 
ber. Tallene fra 1 til 90 gene¬ 
reres i tilfældig rækkefølge, 
og man kan til enhver tid få en 


oversigt over, hvilke tal, der 
allerede er råbt op. 

Ved starten af programmet 
spørges der om, der skal hen¬ 
tes plader fra tape, om der 
skal indtastes nye plader - el¬ 
ler om programmet skal fun¬ 
gere som »opråber«. TAL 
står der på skærmen, og det 
betyder, at man kan få tal fra 
programmet. 

GET$- 

kommando 

Skal der indtastes plader, 
skal man først svare på, hvor 
mange plader, det drejer sig 
om. Det er af betydning, for¬ 
di de tabeller, hvor de mange 
tal skal gemmes, skal dimen¬ 
sioneres med DIM, og det er 
en kommando, der kun kan 



FORTH kan 
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VIC 


Fortsat fra forsiden 

VlC holder styr på dine bankoplader 


0 SK=4* <: PEEK <36866 > AND128 > +64* < PEEK C 36869 ) AND120 > DI MTflC 3ø > : GØT09 

1 P0KE36878,15 = P0KE36876,225 ■ FOR I = 1T050 : NEXT = P0K.E36876, ø : RETURN 

2 GEJST=IFS$®""THEN2 

3 RETURN 

4 POKE36878, 15 = P0KE36875, 188 = FOR I = 1 TO 150 '■ NEXT : P0KE36873, ø = RETURN 

5 PR I NT" n«"STT : PR INT" ffi NVT SPILM"-PR INTSTT■GOSUB1 : B=ø 

6 FORF-1TOPL : FORR®1 TOS ; FORT® 1T05 : fi <PR, T >»OBS< A < P, R, T> > : NEXTT, R, P ■ 
OTOløøø 


S*=""■G0SUB7'G 


7 FORD--1 TO 1 øøø = NEXT : RETURN 

8 FORV= 1 TOS F0RS-225T0185STEP-1 • P0KE36875.. S • NEXT • P0KE36875, 0 : NEXT : RETURN 

9 DEFFNflCP >»SK+47+2*INT <PX10>+44* C P-1NT <FV10)* 10> 


H 1 
H 2 


3 I 

4 I 

5 I 

6 I 

7 I 

8 I 

9 I 


lø S#®" 0 1 2 3 4 5 6 7 8 

11 S#®S*+" I—I—I—!—!—I—I—r- 

12 S#=S*+" i—f—I—I—r—I—1—r- 

13 S#®S#+ " h-+—I—i—-i—1—i—r- 

14 X#=S*+" !—I—PH—I—I—I—P 

15 KT=K*+" PH—PH—I—PH—P 

16 KT=Kf+" I—I—i—I—I—i—i—i—i—i 

17 K*®l<$+" I—!—I—I—i—PH—P 

18 K*=K#+" PH—PH—i—I—I—P 

19 Kt=K#+ " P-P-H—I—I—I—P~P 

20 X1*=K#+" 1 — 1 — 1 — 1 — 1 — 1 — 1 — 1 —I—I" 

60 ST$=" ****************" 

7ø PRI NT" Frø"STT:PRINT"M BRNKO-SVSW 

80 PRINT "STOR PLADER FRfl TRPE ” '■ PR I NT " MB 
85 PRINT":«: TflL" 

90 GETST■IFSTC”O"ORST>"C"ORST=""THEH90 

91 IF ST="O"THEH400 


I I 

I I 


n—i—i—i 

I I I 
! I I 
I I I 
I I ! 
I I I 
I I I 
I I I 


I I 


INTOTt 


ø 


m\ 


■PR 

PLADER SKAL 


indtaste:: 


GOSUB1 


92 I F'ST~ " C " THEN 10008 

løø PRINTHWHVOR MANGE PLADER?":GOSUB1:INPUTPL 
llø DIMFKPL, 3,5) 

210 FORF-1TOPL 

220 PR I NT " SCPLADE NR. ,, P"II AF"PL 
230 FORR®1TOS : PRINT 

240 FORT®iTOS : GOSUB1■PRINT" SSSSSKRIV TAL C2 CIFRE>" : FORI = 1 TOR’PRINT"Wffl" ; NEXT 

250 OETAT:IFA#®""ORATS"0"ORA#>"9"THEN250 

251 IFINT < VAL AT ) /2 ) «VAL < AT >/2THENPRI NT "SI" : G0T0255 

252 PRINT"«" 

255 PR INTTAB C VAL < AT ) *2 > AT 

268 GETBT:IFBT®""ORBTC"ø"ORBT>"9"THEN260 

261 I FAT® »9 " ANDBTO "0" THEN260 

262 IFAT®"ø"ANDET®"0"THEN260 

264 I FAT® " 0 " THENPRI NT " II" J 

265 PRINTBT "Wi ■ A<P,R,T)»VALCAT+BT > 

299 NEXTT, R.. P 

3øø PR INT = PRINT" IUMtSKAL TALLENE GEMMES?":GOSUB1 ■G0SUB2 
320 IFSTO " J " THEN 1 ©øø 


Il vie- 
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330 OPEN1 1 1,1,"BANKO" 

340 PR INT#1,PL 

350 FORP®1TOPL■FORR®1 TOS:FORT®1 TOS 
36ø PRINT#1,R<P,R,T) 

37ø NEXTT,R,P 

380 GLOSE1■G0T0300 

4øø OPEN 1,1,ø,"BANKO” 

44ø I NPUT# 1 i F'L 

45ø FORP®1TOPL:FORR®1T03 : FORT®1T05 
460 I NPUT# 1, A < P ,> R, T > 

470 NEXTT,R,P 
480 GLOSE1 

løøø PRINT"WrørTRVK STflSTB" : G0SUB2 
løøl B=ø 

1002 PRINT'TrXT;:PRINTX1T:PRINT" 

1003 FORP® 1 TOPL ■■ FORR® l TG3 : FORT® 1 TOS : I FA <. P, R, T 
C90ANDA < P,R,T >90THENP0KEFNRC A CP,R, 

Ti>,87 

1øø4 IFA <P,R,T >=9øTHENP0KESK+5ø3,87 

1005 NEXTT,R,P 

lølø G0SUB2:IFS#="T"THEN5 


2 
























1011 I FS$* " THEM 14000 

1012 fl*=S$ • IFfl#Oø"ORfl*>"9"THENGQSUB4 : GOTOlølø 
1020 PR I NTTflB C 8 > " lllll" fl* " II".: 

1030 G0SUB2:B*=S*:IFB*<"ø"ORB*>"9"THEMG0SUB4■GOTO1ø3ø 

1040 I Ffl*= " 9 " RNDBfO " ø " THENG0SUB4 : GOTO 1030 

1 ø5ø IFfl*= " ø 11 FINDE#* " ø" THEMG0SUD4 = GOTO 1930 

lø6ø PRINTE#" "; : GOSUB1 

lø?ø TR*VAL<fl#+B#0:G0SUB2000=IFB*1THEN5 

1071 IFRA=lTHENRfl*0:GOTO1000 

1 ©72 I FTflOSØTHENPOKEFNfl < Tfl > , 81 

1073 IFTfl*9øTHENP0KESK+5ø3,81 

1080 GOTOlølø 

2øøø REM RUTINE DER SØGER RIGTIGE 

2ø1@ FORP*1TOPL:FORR=1 TOS■FORT=1 TOS 

2ø2ø IFfl<P, R, T>»TflTHENfl < P, R, T>=-R CP..R..T) ■ GOSUBG'øøØ 

2030 NEXTT, R, P :RETURN 

3000 FORX* 1 TOS : IFSGN < R < P, R, X > > = 1THENRETURN 
3ø1ø NEXT = GOSUB12000 = PRI NT 
3020 G0SUB4000 : RETURN 

4øøø FORX*1 TOS:FORV*i TOS : IFSGN<fl C P,X,V>> = 1THENRETURN 

4ø1ø NEXTV,X = GOSUB13øøø = RETURN 

4030 RETURN 

løøøø REM TRL OPRRRB 


10020 PR INT"3"•PRINTST#:PR INT" M 
10030 PR I NT"MMTRYK TAST FOR HVT TRL” 

10035 PR I NT" MMTRYK *■ FOR KONTROL" 

10036 PR I NT" MMTRYK t FOR NVT SPIL" 

10040 NT*I NT < RNBC 1>*90 > +1 

1øø42 IFX-90THEN : GOSUB? : GOSUB1Søøø : S#* 
1ØG4S IFTR CNT)*1 THEN 10040 
1øøSø G0SUB2 

10051 IFS#=" THEN GOSUB 1 Søøø 
10055 IFS*="t"THENX*0 ; GOSUB1 Søøø:FORT* 

1øø6ø X*X+1 : TflCHT> = 1:PRINTTflBC 10>" ,- 

AB C15" I 

1øø7ø PRINTTflBC 1ø >" 1 - 1 MM" :GOSUB 1 

10080 GOTOiøø4ø 

11001 FORV*1T090=IFTfl <V >*1THENPRINTV; 

11øG2 NEXT = PR INT:RETURN 


TflLM" : PRINTST# 


"T"■P0KE19S,ø■GOSUB1 ; GOTOi0055 


1T090 : Tfl CT>«ø:NEXT:GOTO 1øøøø 
—i " '■ PR I HT " TRL NR " X " IB ■ ” TAB < 10 > " 


!" NT 


PR j. NT' 


llølø PRINT " 3TRVK «- FOR AT FORTS. " ■ GOSUB 1 : I NPUT " MTflL " TT t' I FTTt* " THENPR I NT " 1" 
RETURN 

11015 I FASO ( TT* > <480RflSC < TT* ) >5 POR VAL '• TT* ) >900RVAL < TT# > < 1THEN00SUB4 ' PR I NT " MBUEP 
IKKE ! " GOSUB? : GOTOllØlø 

11020 IFTfl <VAL < TT*> )»ØTHENG0SUB4 : PRINT" MIKKE TRUKKET"■GOSUB?:GOTO110iø 
11@30 PRINT"MOK":GOSUB1:GOSUB? : GOTO11ø18 
12øøø REM EN RAEKKE*** 

12005 Rfl=1 PR INT" 3" =PRINTST *■ PR INT»M EN RAEKKEM"■PRI NT" PLADE NR.“P 

1201 ø PR I HT " M" ST* '■ FORG* 1 TOS ' GOSUB 1 ' NEXT 

12020 PR I NT "MM" : FORT* 1 TOS : PR I NTTflB ( T*3~2 > ABS C fl < P, R, T > >: NEXT 
12030 RETURN 


13øøø REM BANKO **** 

13005 B=1 : PR INT"3"■PR INTST# : PRINT"M BflNKOM":PRINT 

13006 PRINT"M"ST#:G0SUB8 
13010 FORR* 1 TOS : GOSUB 12020 : NEXT : PR I NT : PR I NT " MT'RVK STTflSTB" : GOSUB; 
14øøø REM**KONTROL AF PLADER*** 

14010 F0RP-1T0PL:PRINT"3MPLABE"P : G0SUB13010=PRINT:NEXT:GOTO1002 
15øøø REM »»OVERSIGT OVER TRUKNE TAL*** 

1 Sø lø PR I HT " 3" X#: PR INTX1 * ■ PR I NT " TRYK I i " ; 

15ø2ø FORV* 1T089 = I FTfl < V >* 1THENPOKEFNA (. V )31 
15ø3ø NEXT ■ IFTA C 90 ;• * 1THEHPOKESK+503,81 
15040 G0SUB2 '■ IFS# = " THENPR I NT " 3" = RETURN 
15045 GOTO15040 


PLADE NR«"P 
■ RETURN 


READV. 


gives én gang. Under ind¬ 
skrivningen af tallene behø¬ 
ver man ikke at trykke RE¬ 
TURN hver gang et tal er 
skrevet. Til gengæld er man 
nødt til at sætte et nul foran 


de 1-cifrede tal. Denne del af 
programmet gør brug af 
GET$-kommandoen, og det 
betyder også, at der ikke er 
nogen blinkende markør på 
skærmen. Til gengæld er der 


lagt nogle små kontroller ind 
i programmet, så det ikke er 
muligt at indtaste ulovlige tal 
(d.v.s. tal over 90 eller min¬ 
dre end 1. 

Som et lille raffinement bli¬ 


ver tallene automatisk skre¬ 
vet på skærmen med alle 
10’ere under hinanden, 
20’ere under hinanden etc. 
På hver plade skal der skrives 
15 tal, og de placeres automa- 











f å I 


VIC 


tisk med fem tal i tre rækker - 
man skal blot taste ind nøjag¬ 
tig som tallene står på den 
plade, man skal spille på. 
Programmet tildeler hver en¬ 
kelt plade et løbenummer, så 
man kan finde ud af, hvilken 
plade, det egentlige var, man 
vandt på. 

Gemmes på bånd 

Når alle tal er indtastet, spør¬ 
ger programmet, om tallene 
skal gemmes, svarer man 
»J«, må man være klar med 
båndoptageren. Efter at tal¬ 
lene er lagt på bånd, vender 
programmet tilbage til sam¬ 
me spørgsmål for at give bru¬ 
geren mulighed for at gemme 
tallene i flere kopier, hvis 
man vil være på den sikre si¬ 
de. 

Efter at være fædig med at 
gemme tallene, går program¬ 
met direkte videre til spillet - 
som man også ville komme 
til, hvis man havde indlæst tal 
fra et eksisterende bånd. Her 
viser skærmbillede et 10x9 
skema, hvor der er hægtet et 
ekstra rum på forneden. Her 
repræsenterer hver søjle 
10’erne, mens hver række 
holder styr på enerne. Alle de 
tal, der findes på pladerne i 
programmet plottes automa¬ 
tisk ind i diagrammet, idet 
tallet 90 har fået sin særlige 
plads nederst til højre. 

Nu kan spillet begynde, og li¬ 
gesom under indtastningen 
af tallene behøver man nu 
kun trykke tallene ind (altid 
to cifre), og hvor de tal, man 
har på pladerne, er angivet 
med en ring, bliver der sat en 
sort klat i de pladser, der re¬ 
præsenterer de udtrukne tal. 


Opråberen 

Den sidste funktion i banko- 
programmet er opråberen. 
Her trykker man ganske en¬ 
kelt på en hvilken som helst 
tast på VIC - og straks med¬ 
deler den et tilfældigt valgt tal 
fra 1 til 90. Og den holder vel 
at mærke øje med, at ingen 
tal bliver nævnt to gange, 
de fire sidst trukne tal kan ses 


på skærmen, men når nogen 
har fyldt en række eller en 
plade, skal tallene kontrolle¬ 
res. Det sker med pil-til- 
venstre tasten, der kalder det 
samme diagram frem, som 
bruges under spillet - og 
samtlige trukne tal plottes 
ind. Skal man i gang med et 
nyt spil, bruges også her pil- 
opad tasten. 

Det vil naturligvis være fri¬ 
stende at lave en snirkel i spil- 
programmet, så man på sam¬ 
me VIC-20 kan være opråber 
og deltage i spillet, men det vil 
vi helt overlade til læserne - 
for resultatet kan jo hurtigt 
blive, at VIC sidder og spiller 
banko med sig selv . . . 

Gennemse 

Man kan til enhver tid gen¬ 
nemse sine spilleplader ved at 
trykke på pil-til-venstre ta- 


Det program for check-regn¬ 
skab, som Commodore ud¬ 
byder, er behæftet med nogle 
skønhedsfejl, men heldigvis 
er det ikke værre, end at det 
kan løses. Der er en enkelt li¬ 
nie, der skal fjernes, og der 
skal foretages en rettelse af 
tre andre linier. 

Fra Lars Pedersen, Elmebak¬ 
ken 23 i Snekkersten, har vi 
modtaget følgende opfor¬ 
dring til at løse mysteriet: 

Jeg mener, at det ikke funge¬ 
rer hensigtsmæssigt skærm¬ 
mæssigt. Især funktion »F3 
Opslag« synes at skabe »rod« 
på skærmen, såfremt syste¬ 
met indeholder mere end 4 po¬ 
steringer og »n« anvendes for 
at se de 4 forudgående poste¬ 
ringer. Heller ikke »F1 ajour¬ 
føring« opfører sig regelret, 
når der indtastes mere end 1 


sten. Når man med denne tast 
har »bladret« sig gennem alle 
plader, vender man tilbage til 
diagrammet, men nu er der 
kun indplottet de tal, der sta¬ 
dig mangler at blive råbt op. 
Skulle det ulykkelige ske, 
at en anden spiller får banko, 
trykker man på pil-opad ta¬ 
sten, hvorefter man er klar til 
et nyt spil med de samme spil¬ 
leplader. 

Får man selv fyldt en række 
eller ligefrem banko, giver 
programmet naturligvis mel¬ 
ding om det. Man må sige, 
det er en svaghed ved pro¬ 
grammet, at det FØRST rap¬ 
porterer om hele rækker - og 
bagefter om BANKO. I værst 
tænkelige fald kan konse¬ 
kvensen blive, at en »ma¬ 
nuel« spiller, der får banko i 
samme stund, løber med ge¬ 
vinsten, fordi han er hurtige¬ 
re. 


postering i samme ajourfø¬ 
ring. 

Jeg ville være meget taknem¬ 
melig, såfremt VI & VIC har 
mulighed for at »Verify« 
programmet. 

I øvrigt særdels tilfreds med 
bladet om det blot kom oftere 
end hver 2. måned. 

Med venlig hilsen 
Lars Pedersen 


Fra Commodore Data i Hor¬ 
sens har vi fået følgende re¬ 
cept på, hvordan problemer¬ 
ne kan bringes ud af verden: 

1. Linie 26027 fjernes. Efter 
at programmet er indlæst i 
computeren, tastes 26027, 
hvorefter man trykker RE¬ 
TURN. 

2. Linie 10020 skal se således 
ud: 


Den måde, der er benyttet for 
at markere, at et tal er råbt 
op, er en vending af forteg¬ 
net. I tabellen gøres de tal 
negative, som bliver udtruk¬ 
ket, og når alle fem tal i en 
række er negative, er rækken 
fyldt. Det ville være fristende 
at lægge en funktion ind i 
programmet, der opretter en 
lille tabel med »kritiske« tal - 
altså tal, som man véd vil give 
banko, når de trækkes - men 
ajourføringen af en sådan ta¬ 
bel vil tage tid - og selv om 
man vil tjekke først i denne 
tabel for at se, om der er ban¬ 
ko, slipper man ikke for at lø¬ 
be hele stakken igennem. Re¬ 
sultatet vil altså uvægerligt 
blive, at programmet kom¬ 
mer til at køre langsommere - 
og hvad nytter det, man har 
gevinst på sine plader, hvis al¬ 
le de andre er gået hjem, når 
man råber »Banko!«? 


GOSUBB 26012: N = NR + 1 
:PRINT LEFT$(N$,19) 

+ SP$ + SP$; 

3. Linie 10030 skal se således 
ud: 

GOSUB28000:IFCI$ = 
”S”THEN 1000 

4. Linie 50005 skal se således 
ud: 

L% = L% + 1:PRINTC$;: 
IFL<7o LL%THENL% 

= L% - LPRINT” 
GOTO50001 

Læg mærke til, at indholdet 
mellem de to citationstegn i 
linie 50005 skal være cursor 
til venstre, mellemrum og 
cursor til venstre. 

Når man har rettet fejlen, er 
der bare tilbage at SAVE 
programmet i den nye og for¬ 
skønnede version. 


Skønhedsfejl i program 
for check-regnskab 
er lette at fjerne igen 
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VI & Vic-bånd med £o 

fire på stribe-spil jo® 

r mmmm 


I VI & VIC nr. 3 gengav vi et 
program, som kunne lave 
VIC om til et fire på stribe¬ 
spil. 

De har været meget stor inter¬ 
esse for dette spil - men des¬ 
værre har mange læsere også 
haft visse vanskeligheder 
med at få det til at fungere. 
Det vidner en række henven¬ 
delser til redaktionen om. 
Derfor har vi valgt at tage 
programmet med på listen 
over bånd, som kan erhver¬ 
ves for tyve kroner. Se bestil¬ 
lingslisten. 

Men programmet, som vi har 
indspillet på bånd, er ikke 
helt identisk med det, der var 
gengivet i bladet. Først og 
fremmest er grafikken for¬ 
bedret, så »brikkerne« ikke 
skal passere tværs igennem 
de streger, der danner spille¬ 
pladen. Når en af brikkerne 
udløses, åbner der sig en lem, 
brikken kan falde igennem, 
og de vandrette streger bli¬ 
ver »skubbet« til side.- Når 
brikken er faldet helt ned, 
lukker stregerne sig igen. 


Lethedsgrader 

En anden ændring i program¬ 
met består i, at brikkerne selv 
bevæger sig frem og tilbage 
foroven i skærmbilledet, så 
man blot behøver at trykke 
på en tast, når de er lige over 
den kanal, man har udset sig. 
Den hastighed, brikkerne 
skal bevæge sig med, kan 
man vælge før spillets start. 
Der spørges om »Hvor let«, 
og man skal vælge et tal mel¬ 
lem 1 og 9. Jo højere tal, jo 
lettere spil. Ikke alene er der 
forskel på, hvor hurtigt, 
brikkerne kører frem og til¬ 
bage foroven, der er også ind¬ 
bygget en »time-out«-funk- 
tion, som medfører, at brik¬ 
ken falder ned, hvis man ikke 


tilstrækkeligt hurtigt har 
valgt en placering. 

Det er sådan indrettet, at den¬ 
ne »time out« ikke findes i 
den letteste. 

Det er ikke kun, når man spil¬ 
ler fire på stribe-spillet, man 
skal være hurtig. Muligheden 


for at vælge lethed består og¬ 
så kun et begrænset stykke tid 
(mellem fire og fem sekun¬ 
der). Herefter vælger pro¬ 
grammet selv en middel svær¬ 
hed. 

at programmet fylder 2406 
bytes, så det kan køre i en 


VIC uden udvidet hukom¬ 
melse. Det er også skrevet, så 
det ikke uden ændringer kan 
køre i en VIC med mere end 8 
K RAM i alt. 


BESTILLINGSKUPON TIL VI & VIC 

□ Jeg ønsker abonnement på VI & VIC. 

Prisen er 85 kr. for et års abonnement, der omfatter seks numre - frit tilsendt. 

Af de tidligere udgaver vil jeg gerne have: 

□ Nr.l - □ Nr. 2 □ Nr. 3 - □ Nr. 4 - □ Nr. 5 1982 - □ Nr. 1 1983 


Jeg abonnerer på VI & VIC og vil gerne have en kopi af følgende programmer: 


Kassettebånd 
å 20 kr. 

Program¬ 
listning 
a 10 kr. 

Titel 

Omtalt i 

VI & VIC nr. 

Programmets 
omfang (bytes) 

□ 

□ 

24 TIMER 

2/1982 

2811 

□ 

□ 

7 DØGN 

2/1982 

6024 

□ 

□ 

FREKVENS 

2/1982 

2405 

□ 

□ 

ØKO-SYS 

3/1982 

3745 

□ 

□ 

VI & VIC SPIL 

4/1982 

3226 

□ 

□ 

KARAKTER 

5/1982 

1651 

□ 

□ 

BANKO 

2/1983 

3783 

□ 

□ 

4 PÅ STRIBE 

3/1982 

2406 

□ 

□ 

HAPS 

3/1983 

2501 

Desuden ønsker jeg: 




□ VIC-20 memory map (20 kr.) 

4/1982 


□ BASIC 4 memory map (20 kr.) 

4/1982 



Som abonnent på VI & VIC betaler jeg kun 20 kr. pr. bånd og memory map og 
10 kr. pr. programlistning. 

Beløbet, som inkluderer moms og forsendelse, vedlægges bestillingen. 

Navn:__ 


Adresse:_ 

Postnr.:_By:_ 

Kuponen sendes til VI & VIC, Kornager 29, 7100 Vejle. 
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VIC= 


Programmer er 
illustrationer 
til artiklerne 


De programmer på bånd, der 
kan købes fra VI & VIC, må 
ikke betragtes som andet end 
illustrationer til de artikler, 
der har været bragt i bladet. 
Først og fremmest må vi bede 
om forståelse for, at pro¬ 
grammerne KAN have ska¬ 
vanker, der ikke ville være ac¬ 
ceptable i færdigudviklede 
programmer, som har været 
igennem den aflusningspro¬ 
ces, der bl.a. kræver lang tids 
brug. 

Meningen med at tilbyde læ¬ 
serne disse bånd er, at det kan 
være et stort og trælsomt ar¬ 
bejde at taste længere pro¬ 
grammer ind - og vi har erfa¬ 
ret, at mange har vanskelig¬ 
heder, som man på denne 
måde let og elegant kan sprin¬ 
ge hen over. Programmerne 


kan også betragtes som et ud¬ 
gangspunkt for at lege videre 
med programmeringen: 
Lægge andre funktioner ind, 
forbedre de eksisterende og 
naturligvis altid peppe bille¬ 
det op med farve - eller lægge 
lydeffekter ind i afviklingen 
af programmet. 

Commodore 64 

Vi er blevet spurgt, om pro¬ 
grammerne kan køre på 
Commodore 64, og hertil må 
vi desværre sige, at det kan de 
ikke. I hvert fald ikke uden en 
forudgående bearbejdelse. 
Alene af den grund, at der er 
én eller anden form for lydef¬ 
fekter i programmerne, vil 
detgågaltien64’er, fordi her 
anvendes POKE OG PEEK - 


Nyhed for VIC-20 


Motherboard model 2 
8 K RAM 

2 stik til standard moduler. 

Omdkifter til blokadressering.Kr. 685,00 

Motherboard model 3 

Samme som model 2, men med 3 stik.Kr. 985,00 

24 K RAM udvidelse 

Modul med plads til 24 K samt en sokkel 
til 1 stk. Eprom 2732 

leveres med 4 K monteret.Kr. 485,00 

Løse 2 K RAM pr. stk.Kr. 75,00 

Bøger 

50 spil for VIC-20 

»Symphony for a melancholy«.Kr. 145,00 

30 spil for VIC-20 

»ZAP POW BOOM«.Kr. 165,00 


GRATIS: Meld dig ind i Betafon 
VIC-20 og Commodore 64 
informationstjeneste 
og modtag nyheder løbende, når der 
kommer noget. 

BEIAFON (Lørdag lukket) 

ISTEDGADE 79 -1650 KØBENHAVN V - TLF. 01 - 3102 73 


og adresserne i VIC-20 og 
Commodore 64 er ikke ens. I 
en del af programmerne an¬ 
vendes også PEEK og POKE 
til skærm og farver, og disse 
instruktioner skal i givet fald 
ændres. 

Programlistning 

Redaktionen kan desværre 
ikke påtage sig at foretage 
disse ændringer til de eksiste¬ 
rende programmer, og vi har 
heller ikke mulighed for at til¬ 
lempe programmerne til an¬ 
dre behov end dem, de blev 
skrevet til. Vi er f.eks. blevet 
bedt om at lave en version af 
ØKO SYS, der kan køre med 
diskettestation, og der har 
været ønsker om mulighed 
for at tilslutte printer. 


Her er det, vi mener læsernes 
kreativitet må fortsætte, 
hvor vores ben-arbejde slap 
op. Men det skal også straks 
erkendes, at det kan være 
vanskeligt at gå i lag med re¬ 
digering af et vanskeligt over¬ 
skueligt program. Derfor vil 
vi nu efterkomme ønsket om 
at levere en programlistning 
sammen med båndet - eller 
man kan nøjes med denne 
programlistning, hvis man 
har mod på at tage et par ti¬ 
mer ved tastaturet. 

Prisen for disse programlist¬ 
ninger har vi sat til 10 kr. inkl. 
moms og inkl. forsendelse, 
men vi må bede om, at belø¬ 
bet sendes sammen med be¬ 
stillingen på samme måde, 
som det gælder for bånd og 
memory maps. 


Nu kommer bogen 
om programmering 
af VIC-20 og 
Commodore 64 


»Programmering med Gom- 
modore Basic« er titlen på en 
ny bog, som ventes på gaden i 
slutningen af april måned. 
Det er Borgens Forlag, der vil 
forfølge den succes, man har 
haft med en tilsvarende bog 
om programmering af ZX 
81-datamaten, og forlagsre¬ 
daktør Niels Borgen oplyser, 
at denne bog er solgt i mere 
end 6000 eksemplarer, så han 
venter også en stor interesse 
omkring den nye bog. 
Ligesom ZX 81-bogen er 
»Programmering med Com¬ 
modore Basic« skrevet af den 
danske forfatter Erwin 
Neutzsky-Wulff. 

Bogen beskriver den BASIC- 
version, som findes i VIC-20 
og Commodore 64, og Niels 
Borgen siger, at der indledes 


med et regulært grundkursus 
i BASIC-programmering - li¬ 
ge fra at fortælle, hvad der 
sker, når man trykker på én 
af computerens knapper til 
de mere raffinerede mulighe¬ 
der som f.eks. definerbare 
funktioner, som også findes i 
BASIC. 

I bogens sidste halvdel tages 
læserne med ind i den mere 
specielle VIC-verden med en 
kulegravning af de mulighe¬ 
der, der ligger i VIC-20. Igen¬ 
nem hele bogen krydres lær¬ 
dommen med programek¬ 
sempler, så læseren i praksis 
får mulighed for at afprøve 
sine færdigheder. 

Bogen om programmering af 
VIC og Commodore 64 bli¬ 
ver på ca. 260 sider og kom¬ 
mer til at koste 140 kr. 
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VIC' 


En subrutine, der runder 
kr. og øre af - og sætter 
beløbene pænt i kolonner 


700 TR$=TR$+". 

II 

7øl" PR=INT <PR#100+. 5 Vløø 1 PR$=STR$ C PR > ■ I FPR< 1 RNDPR>ØTHENPR$=" ø"+MI< PR$ ,2 '>■ GOTO 
704 

702 IFPR-1NT CPR >=ØTHENPR$=PR*+". " 

703 IFPR<øflNDPR>-1THENPR* «'* -0"+MID*C PR*,2 > 

704 IFRSC C RIGHT♦(PR$,3 > >046THEHPR$=PR$+"0" : G0T0704 

810 HL$=TR$+PR*:IFLEN<HL$»LLTHEHTR$=LEFT♦CTR$ > LEN(TR$>~1> : G0T0810 
820 IFLEN<HL$XLLTHENTR*=TR*+" " :G0T081ø 
830 PRINTHL* : RETURN 

RERDY. 


Her er et hjælpemiddel for 
den, der har brug for at stille 
beløb op under hinanden. 
Teksten til beløbet kommer 
til at stå til venstre, og beløbet 
rundes af til to decimaler og 
placeres pænt under hinan¬ 
dentilhøjre. Det er valgfrit at 
få en række punktummer til 
at slutte linien ud og lette læs¬ 
ningen. 

For at disse programlinier, 
der kan anvendes som en sub¬ 
rutine i mange slags pro¬ 
grammer, skal tre variable 
lægges fast. Først og frem¬ 
mest linielængden, LL. Hvis 
man opererer med den sam¬ 
me linielængde hele tiden, 
kan det gøres i begyndelsen af 
programmet med en instruk¬ 
tion som f.eks.: LL = 20, 
hvis man udelukkende vil ar¬ 
bejde på skærmen - eller LL 
= 60, hvis man arbejder med 
en printer. Det er naturligvis 
muligt at fastsætte linielæng¬ 
den hver gang, subrutinen 
anvendes. - På den måde kan 
indtægter og udgifter få hver 
sin kolonne. 

Dernæst skal teksten define¬ 
res i variablen TR$, og belø¬ 
bet, der skal printes, indsæt¬ 
tes i variablen PR. 

Sådan virker 
subrutinen 

I linie 701 foretages øre-af¬ 
rundingen, hvorefter den nu¬ 


meriske variabel PR omdan¬ 
nes til en strengvariabel PR$. 

Men allerede her giver VIC os 
problemer. For hvis tallet er 
mindre end 1, får vi ikke no¬ 
get nul foran punktummet 
(der fungerer som komma). 
Det løses også i linie 701, hvor 
PRS i tilfælde af tal mindre 
end 1 men større end nul defi¬ 
neres som et NUL efterfulgt 
af den oprindelige PRS’s 2. 
og følgende karakterer. På 
denne måde bortfiltreres den 
blanke karakter, som indle¬ 
der de numeriske variabler - 
og som også overføres til 
strengbariablen. 
have løst, er det, at VIC ikke 
sætter noget punktum, når 
tallet ikke har nogen decima¬ 
ler. Den sag klares i linie 701, 
hvor der tilføjes et punktum, 
hvis vort tal er helt uden deci¬ 
maler. 

Tal mellem 0 og minus 1 får i 
linie 703 anbragt et minus og 
et nul foran decimal-punk¬ 
tummet. 

Er der ingen decimaler - eller 
kun én, mangler vi de nuller 
til sidst, som får tallet til at ta¬ 
ge sig pænt ud. Det sørger li¬ 
nie 704 for at råde bod på. 
Her kontrolleres, om det tre- 
diesidste tegn i strengen PRS 
har ASCII-koden 46, der er 
betegnelsen for et punktum. 
Er det ikke tilfældet, tilføjes 


et nul og teksten gentages, 
indtil der er kommet det rigti¬ 
ge antal nuller på vort tal. 

Hele linien 

Nu har vi langt om længe fået 
vores tal til at antage et for¬ 
mat, som passer til vores øn¬ 
sker om et beløbs udseende, 
men vi har endnu ikke fået 
det placeret rigtigt på skær¬ 
men (eller papiret). 

Dette arbejde starter i linie 
810, hvor en ny variabel HL$ 
sættes sammen af tekstvari- 
ablen TR$ og beløb-variab- 
len PR$. Når denne variabel 
er nøjagtig en linie lang, 
kommer kolonnerne til at 
passe. Først kigges der efter, 



om den er for lang. Er det til¬ 
fældet, skæres den sidste ka¬ 
rakter af teksten, og der te¬ 
stes påny i linie 810. 

I linie 820 kontrolleres, om li¬ 
nien bliver for kort. Er det til¬ 
fældet, forlænges teksten 
med et ordmellemrum - og 
der startes forfra med kon¬ 
trollen af linielængden. Når 
alt er i orden PRINTes linien 
HL$ og subrutinen er afslut¬ 
tet. 

Hvis man gerne vil have prik¬ 
ker fra teksten hen til belø¬ 
bet, starter man blot linie 
700, hvor teksten tilføjes et 
stort antal punktummer (der 
for de flestes vedkommende 
bliver fjernet igen i linie 810). 
Når man ønsker prikker, 
skriver man altså GOSUB 

700. Ønsker man ingen prik¬ 
ker, skriver man GOSUB 

701. 


Lad VI & VIC 
hjælpe dig 

VI & VIC skal være med til at du kan få mere 
fornøjelse af din VIC-20, og derfor indbyder 
vi dig til at komme med dine praktiske eller 
mere teoretiske spørgsmål. 

Pladsen vil naturligvis sætte grænserne for, 
hvor mange spørgsmål, der kan blive besvaret 
her i bladet, men vi vil naturligvis først og 
fremmest lægge vægt på at besvare de 
spørgsmål, som optager mange VIC-brugere. 
Skriv til VI & VIC på adressen Kornager 29, 
7100 Vejle, hvis du har spørgsmål, du gerne 
vil have behandlet. 
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VI Cr 


FORTH - sproget til VIC, 
som man selv kan udvide 
og definere, som man vil 


Der findes i dag en mængde 
programmeringssprog, man 
kan næsten ikke åbne et com¬ 
puterblad uden at se et nyt 
sprog beskrevet, så hvad skal 
vi nu med et sprog til? 
FORTH er ikke noget nyt 
sprog, men det er ikke ret 
kendt ud over de professio¬ 
nelles rækker, og det er egent¬ 
lig synd, for FORTH er sær¬ 
deles velegnet til programme¬ 
ring af microprocessorer. De 
fleste af os har da også brugt 
FORTH programmer uden 
at vide det, for utallige af de 
spil, man ser på cafeterier og 
på markedspladser, er pro¬ 
grammeret i FORTH, ligeså 
microprocessorstyrede radi¬ 
oer, opvaskemaskiner, køle¬ 
skabe o.s.v. 


Effektivt 

Industrien bruger FORTH i 
stor udstrækning, fordi det er 
et effektivt sprog, der giver 
en god udnyttelse af maski¬ 
nen og samtidg giver en me¬ 
get kort programudviklings¬ 
tid. 

Lad os prøve at sammenligne 
FORTH med de to program¬ 
meringssprog, hobbyfolk 
normalt kommer i berøring 
med, ASSEMBLER og BA¬ 
SIC. 

Basic er et fortræffeligt sprog 
til førstegangs computerbru¬ 
gere, men skal man lave pro¬ 
grammer af en vis størrelse, 
begynder vanskelighederne 
at melde sig. Det er ikke nemt 
at strukturere, og prøver man 
at skabe sig et bibliotek af 
subrutiner, for dog ikke at 
skulle skrive de samme ting 
om og om igen, får man be¬ 
svær med at holde rede på si¬ 
ne variable navne, linienum¬ 
re m.m. Hvad værre er, Basic 
er en interpreter, d. v. s. de en¬ 


kelte linier af programmet 
bliver oversat igen og igen, 
hver gang de skal bruges, det 
går ud over hastigheden. 

Hastigheden 

Skal man bruge sin computer 
til noget, hvor hastigheden 
spiller en væsentlig rolle, er 
man nødt til at bruge As¬ 
sembler, eller en kombina¬ 
tion af Assembler og Basic. I 
Assembler definerer man 
hver enkelt maskininstruk- 
tion, man ønsker udført, det 
kræver et betydeligt kend¬ 
skab til maskinen, og det er 
vanskeligt at linke Basic og 
Assembler rutiner sammen 
via SYS eller USR funktio¬ 
nerne. Det allerværste er, at 
programmer, der er fulde af 
PEEK’s og POKE’s og As¬ 
sembler rutiner og som er 
skrevet for en VIC-20, ikke 
uden et betydeligt arbejde og 
indgående kendskab til begge 
maskiner, kan bringes til at 
køre på f.eks. en PET. 

Når nu så mange professio¬ 
nelle ser deres fordel i at bru¬ 
ge FORTH, hvor sådanne 
problemer slet ikke opstår, så 
lad os prøve at se nærmere på 
det. 


FORTH sproget er ikke no¬ 
get programmeringssprog i 
gængs forstand, det er et bi¬ 
bliotek eller en ordliste af 
kommandoer eller rutiner, 
som man kan sammenstille 
uden at bekymre sig om over¬ 
førsel af variabler fra den ene 
rutine til den anden. 

Disse FORTH ord, som man 
kalder dem, gemmes i en ord¬ 
liste, og FORTH’s store for¬ 
del består i, at man nemt kan 
definere, afprøve og derefter 


Et bibliotek 

anbringe sine egne ord i ordli¬ 
sten. 

Siden alt i FORTH drejer sig 
om ord, må vi hellere slå fast, 
hvad et FORTH ord er, alle 
programmeringssprog har et 
eller andet regelsæt, som de¬ 
finerer sproget, men man fin¬ 
der næppe simplere regler 
end FORTH’s. 

FORTH regel nr. 1: 

Den grundlæggende enhed i 
FORTH kaldes et ord. Et ord 
består af en række af et eller 
flere bogstaver, tegn eller tal, 
som er afgrænset af mellem¬ 
rum. Eks.: FORTH + IF 
*/ 2§ er eksempler på fem 
ord, der opfylder reglerne for 
et FORTH ord. 

Data 

Men hvor bliver vores data 
af? Hvor gemte ordet 
PADDLE adressen på vores 
port, og hvor gjorde ordet 
C (jS af vores paddle status? 
Det bringer os til FORTH 
regel nr. 2: 

Parameter og dataoverførsel 
mellem FORTH ord sker ved 
hjælp af en LIFO stack. 
LIFO står for last-in-first- 
out og en LIFO stack kan 
bedst sammenlignes med en 
bunke. Man lægger ting på 
toppen af bunken, som altså 
bliver højere, og den sidst 
lagte ting ligger øverst. Når 
man fjerner noget fra bun¬ 
ken, får man fat i de øverste 
ting først, og bunken bliver 
mindre, indtil den er tom. 
Lad os prøve at skrive READ 
igen. FORTH interpreteren 
vil lede i ordlisten og finde de¬ 
finitionen af READ. Først 
udføres PADDLE, og 
PADDLE vil anbringe adres¬ 
sen af vores paddle port på 
stacken. Det næste ord var 


C (?) (C.fetch), et standard 
ord der ifølge definitionen vil 
tage et tal fra stacken, bruge 
det som storrage adresse og 
lægge indholdet af denne 
adresse tilbage på stacken, så 
møder vi ordet; der fortæller 
os, at vi er færdige, d.v.s. ef¬ 
ter at vi har udført definitio¬ 
nen for READ, er vores stack 
blevet én position højere, og 
på toppen ligger vores paddle 
status, det var faktisk også 
det, vi ønskede. 

Ord som ikke findes i ordli¬ 
sten, men som kan konverte¬ 
res til tal, bliver også anbragt 
på stacken, hvis vi skriver: 

2 4 6 8 (return) vil vi have en 
stack med fire tal og 8, som jo 
blev skrevet sidst, vil ligge 
øverst. Ordet . (dot) er et 
standard ord, som vil tage det 
øverste tal på stacken og 
skrive det på vores output de¬ 
vice. Så hvis vi nu skriver fem 
punktummer (dots), husk 
mellemrum mellem hver, da 
det jo er FORTH ord, vil vi se 
følgende: 

. 8 6 4 2 0. 

STACK EMPTY! 

Vi ser, at tallene bliver skre¬ 
vet ud ét af gangen, men vi 
puttede kun fire tal ind, og vi 
prøvede at skrive fem tal ud. 
FORTH vil skrive et eller an¬ 
det tilfældigt i stedet for det 
femte tal og derefter give en 
fejlmeddelelse: . STACK 
EMPTY! d.v.s. ordet . prø¬ 
vede at fjerne noget fra en 
tom stack. 

FORTH gemmer sine ord 
sammen med en difinition af 
det arbejde, man vil have ud¬ 
ført, når man bruger det på¬ 
gældende ord i sine ordlister, 
man kan selv bestemme, hvor 
mange ordlister man vil have, 
men man skal bruge mindst 
én. 

Når FORTH’s interpreter ru¬ 
tine møder et ord i sin inputli¬ 
nie, vil den lokalisere ordets 
definition i ordlisten ved 
hjælp af ordets navn. Hvis 
ordet findes, udføres defini¬ 
tionen. Hvis ordet ikke kan 
findes i ordlisten, vil inter¬ 
preteren antage, at det er et 
tal og prøve at konvertere til 
den interne kode for tal, nor¬ 
malt seksten bit heltal. Skulle 
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via 


ordet indeholde tegn, som ik¬ 
ke kan konverteres, vil 
FORTH udskrive en fejl¬ 
meddelelse. 


Nye ord 

Nye ord adderes til ordlisten 
ved at bruge et specielt ord : 
(colon). Lad os tage et eksem¬ 
pel; 

Hvis vi tidligere har defineret 
et ord PADDLE, som giver 
os adressen på vores paddle 
eller joystik, og vi ønsker at 
definere et nyt ord READ, 
som skal læse input fra vores 
paddle port, skriver vi: 

: READ PADDLE C (jp; 
Colon er det ord, der fortæl¬ 
ler, at et nyt FORTH ord skal 
adderes til ordlisten, nemlig 
READ, og i definitionen af 
READ indsættes henvisnin¬ 
ger til PADDLE, C (jb og 
PADDLE havde vi jo selv de¬ 
fineret tidligere, C (g> (C- 
fetch) er et ord, der vil læse én 
byte fra en storrage adresse, 
og ; (semi-colon) er et ord, 
der fortæller interpreteren, 
at orddefinitionen skal af¬ 
sluttes. Nu er ordet READ 
kendt af FORTH, så når vi i 
fremtidige definitioner skri¬ 
ver READ, vil FORTH give 
os status af vores paddle 
port. 


Retur stacken 

Lad os tage FORTH regel nr. 
3: 

En fejlmeddelelse standser 
eksekveringen og tømmer 
begge stackene. Vi har kun 
omtalt parameterstacken, 
men der findes en stack mere 
kaldet retur stacken. 

Når vi møder et ord, der refe¬ 
rerer til et andet ord, der igen 
refererer til et tredie ord 



siger vi, at vi går et level ned, 
vi bruger så retur stacken til 
at gemme adressen på stedet, 
vi kom fra, således at vi kan 


finde tilbage igen og fortsæt¬ 
te det rigtige sted, når vi mø¬ 
der et;, men det vil vi komme 
nærmere ind på i en senere ar¬ 
tikel om de indre mekanismer 
i FORTH. 

Kan vi nu med så simple mid¬ 
ler som en interpreter to 
stacks og en ordliste løse 
problemer, som man ellers 
skal bruge komplicerede 
kompilere eller interpretere 
til? Svaret er ja, hvis ordlisten 
indeholder de rigtige ord. 


100-150 ord 

Når man anskaffer sig et 
FORTH system, vil ordlisten 


Kære VI & VIC. 

Først tak for de dejlige blade, 
jeg fik efter indmeldelsen, og 
så til et par spørgsmål: 1. Er 
der nogen mulighed for at få 
VIC-20 til at opfange og sene¬ 
re vise de signaler på hvilke 
Danmark og Sveriges Radio 
udsender teletekst? 

2. Kan man ved at tilføre 
16K-RAM modulet, en given 
spænding fra et element, få 
den til at huske ikke at glem¬ 
me, når man slukker for 
VIC’en, hvis 1 eller 2 kan be¬ 
svares med ja then goto: om¬ 
gående opgivelse af på hvil¬ 
ken måde og med hvilke dim¬ 
ser dette udføres. 

Til slut vil jeg bede jer over¬ 
bringe min dybfølte tak til de 
mennesker, der svarer på mi¬ 
ne dumme spørgsmål, når jeg 
frækt tillader mig at ringe til 
Commodore både her og 
over there, magen til venlig 
og behagelig behandling får 
man ikke mange steder, og - 
selv om disse mennesker sik¬ 
kert utallige gange har svaret 
og vejledt andre af min endnu 


mdeholde 100-150 omhygge¬ 
ligt udvalgte ord, som kan 
bruges til at manipulere stac¬ 
ken med, til at lave beregnin¬ 
ger med, og til at lave pænt 
formaterede udskrifter med. 
Det er ikke noget problem at 
udskrive tal i pæne kolonner 
med FORTH, de eneste ord, 
man selv skal definere, er 
dem der hører til de opgaver, 
man ønsker løst. 


Nu er det jo ikke særlig prak¬ 
tisk, at skulle definere sine 
ord ét af gangen. Derfor gem¬ 
mer man sine orddefinitioner 
på eksternt medie i 1 K blokke 
eller SCREENS, som man 
kalder dem FORTH, og 
FORTH systemet indeholder 
en text editor, hvormed man 


famlende, fumlende og fejl¬ 
fyldte person - ja, så fornem¬ 
mer man varmen og interesse 
strømme ud af telefonen. 

Så nu har jeg ikke tid til at 
skrive mere, nu er der gået 
flere minutter siden jeg sad 
hos onkel VIC, så nu får jeg 
abstinenser, tak for nu, tak 
for optagelsen, tak for, for¬ 
håbentlig hurtigt og positivt 
svar. 

Med venlig hilsen 
Henning Rugaard 


Teletekst er næppe en sag for 
VIC-20. Vi har i hvert fald ik¬ 
ke noget bud på, hvordan det 
skulle kunne løses - men med 
hensyn til at sætte batterier til 
RAM-moduler, kan vi give et 
helt klart svar: Den går ikke. 
Hvis det er et problem, at hu¬ 
kommelsen slettes, når com¬ 
puteren slukkes, har vi imid¬ 
lertid en meget enkel løsning 
på dette problem: Lad være 
med at slukke for den - og 
hvis det er strømafbrydelser, 
der er problemer, vil det nok 


kan generere og opdatere dis¬ 
se SCREENS. 

Foruden text editoren inde¬ 
holder FORTH systemet og¬ 
så en assembler, som man ved 
hjælp af ordet CODE kan 
bruge, hvis man ønsker at de¬ 
finere nogle ord i maskin¬ 
sprog i stedet for højniveau 
ord. 

Hvis man taster de ca. 100 
SCREENS ind, et FORTH 
system består af, kan man ge¬ 
nerere et komplet nyt system. 
Det vil fylde ca. 8K, og man 
kan lave store programmer 
på et 2K arbejdslager, for et 
FORTH program fylder fak¬ 
tisk mindre i storrage end den 
tilsvarende opgave skrevet i 
assembler, men det vil vi 
komme tilbage til, når vi skal 
»kigge ind i« FORTH. 


være rimeligere at bygge en 
nødstrømsforsyning, der 
kan holde liv i programmer 
og data. 

Men anstrengelserne skal jo 
ikke være ret store, før der er 
andre og mere nærliggende 
måder at sikre sig - f.eks. ved 
helt enkelt at lagre program¬ 
mer og data på bånd eller dis¬ 
kette. 

PS: Vi har vist brevet til Com- 
modores system-afdeling. 
Man rødmede. 



Teletekst er ikke 
en sag for VIC 
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VIC anvendes til 
en mere effektiv 
sprogundervisning 


Mens skolelærere strides om 
indførelsen af edb i undervis¬ 
ningen, sker der lige så stille 
tiltag i den kommercielle un¬ 
dervisning. Ihvertfald har 
sprogskolen International 


Business Languages i Køben¬ 
havn udviklet sprogkurser og 
tests på datamat. - Og den da¬ 
tamat, der blev udset til opga¬ 
ven, er VIC-20. 

I første omgang bruges 


sprogkurserne på skolen, 
men det er meningen, at med 
tiden skal eleven kunne få 
kassettebåndene med hjem 
til sin egen hjemmedatamat. 

Teknikere 

Skolens leder, Benny Larsen, 
oplyser, at når netop denne 
skoles undervisning vil base¬ 
re sig på hjemmedatamater, 
hænger det sammen med, at 
størstedelen af skolens elever 
er teknikere, ingeniører eller 
folk fra edb-branchen. Sko¬ 
len har 34 faste lærere og om¬ 
kring 5000 elever om året. 



Benny Larsen (forrest) og Claude AA Allouche har haft støtte fra Commodoré til at udvikle de 
BASIC-programmer, der bruges i sprogundervisningen, dels som præ-test, dels som egentlig 
træning. (Foto: Jacob Maarbjerg). 


Ideen om de datamatbasere¬ 
de sprogkurser blev sat i værk 
for halvandet år siden i sam¬ 
arbejde med Commodoré, 
der har stået for programme¬ 
ringen. Der anvendes VIC-20 
i udvidet version med 16K. 
Det enkelte bånd, det enkelte 
kursus indeholder seks emne¬ 
valg med tre delemner med 
hver 30 spørgsmål, således at 
et kursus ialt indeholder 540 
spørgsmål. De fordeler sig på 
flere niveauer og typer. Lige 
fra begynderniveau og op til 
en relativt høj sværhedsgrad 
og kan bruges dels i en nor¬ 
mal øvelsessituation og dels 
som test. Alt er programme¬ 
ret i Basic. 

Ud af busken 

Benny Larsen understreger, 
at det langt fra er meningen, 
at den datamatunderstøttede 
undervisning skal erstatte læ¬ 
rerne. Det er helt udelukket, 
og datamaten skal rundt reg¬ 
net kun bruges i ti procent af 
undervisningstiden. - Men 
netop for vort klientel har det 
vist sig hensigtsmæssigt og 
meget motiverende. Mange 
bruger en datamat i deres 
daglige arbejde, og derfor 
har vi på denne måde fået et 
hjælpemiddel til at få folk ud 
af busken. 

På nuværende tidspunkt er 
kun engelskkurset færdigt, 
men de resterende hoved¬ 
sprog er på bedding. IBL har 
ikke investeret voldsomt i 
projektet, kun omkring 50- 
60.000 kr. Udover mulighe¬ 
den for at tage kassettebånd 
med hjem arbejdes der også 
på at samkøre programbånd 
og gængse lydbånd og des¬ 
uden på programstyret vi¬ 
deoundervisning, således at 
spørgsmål-svar situationen 
klippes ind i en videofilm. Di¬ 
gitaliseret sprogundervis¬ 
ning afviser IBL på forhånd. 
Når investeringsudgifterne 
ikke løber op i svimlende 
summer, hænger det også 
sammen med en vis goodwill 
fra Commodores side. Her 
har man lige fra starten været 
dybt interesseret i projektet 
og kastet en del programme¬ 
ringsressourcer i sagen. 
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Samme program kan køre 
på to måder ved hjælp 
af WATT 653,1 


VIOTOR. shi-fter’ 






Det er almindeligt, at pro¬ 
grammer bringes til stands¬ 
ning med en GET-komman¬ 
do, der f. eks. kan se således 
ud: 

100 GET S$:IFS$ = ” ” 
THEN 100 

Programmet bliver stående i 
linie 100 og venter på, at man 
trykker på en tast - lige meget 
hvilken, hvorefter det fort¬ 
sætter. 

Med WAIT kan man opnå 
samme fordel - og man kan 
endda udnytte en bestemt 
kommando til at vælge mel¬ 
lem to forskellige måeder at 
afvikle det samme program. 
Det drejer sig om WAIT 
653,1 - eller den omvendte 
WAIT653,1,1. WAIT-kom- 
mandoen virker på den må¬ 
de, at programmet standser 
og først fortsætter, når ind¬ 
holdet af den specificerede 
hukommelsesplads svarer til 
tallet efter kommaet. 


SHIFT eller ej 

I dette tilfælde arbejder vi 
med hukommelsesplads 
nummer 653, som er det sted, 
VIC gemmer oplysningen 
om, hvorvidt SHIFT-tasten 
er trykket ned eller ej. For at 
se, hvordan det virker, kan 
man lave et lille program, der 
ser således ud: 

10 PRINT PEEK (653):GO- 
TO 10 


Når dette miniature-pro¬ 
gram køres, vil skærmen få 
en hel række nuller PRIN- 
Tet, men så snart SHIFT- 
tasten trykkes ned, PRINTes 
der et-taller i stedet. Slip 
SHIFT, og vi får igen nuller 
på skærmen. 

Her har vi nøglen til en nem 
måde at gribe ind i et program 
-uden at standse det. Ønsker 
man f. eks. at vise mellemre¬ 


sultater af en beregning på 
skærmen, indlægger man en 
WAIT 653,1. Bruger man 
denne metode, kan man også 
arbejde med WAIT 653,1,1, 
der standser programmet, 
indtil SHIFT-tasten slippes. 

Betingede hop 

En anden mulighed for at be¬ 
nytte kendskabet til hukom¬ 
melsesplads 653 ligger i at 
lægge betingede hop¬ 
instruktioner ind i program¬ 
met, hvor betingelsen netop 
drejer sig om indholdet af hu¬ 
kommelsesplads 653. 

F. eks. kan man skrive: 

100IF PEEK (653) = 1 THEN 
200 

Denne linie vil få program¬ 
met til at springe linierne 101 
til 199 over - men kun, hvis 
SHIFT-knappen er trykket 
ned. På tilsvarende måde kan 
man ændre hastigheden på et 
program ved at benytte ind¬ 
holdet af 653 i en forsinkel¬ 
sesløkke. Den kan f. eks. 
komme til at se sådan ud: 
FOR 1 = 1 TO 1000 + 2000* 
PEEK (653):NEXT 
Med SHIFT nedtrykket vil 
forsinkelsen være omkring 
tre gange så lang, som når 
SHIFT ikke er trykket ned. 


VIC-brugere i alle 
byer! Foren jer 


Glæden ved at arbejde (eller 
lege) med VIC-20 kan ofte 
forhøjes ved at gøre det sam¬ 
men med andre - men proble¬ 
mer kan undertiden være at 
finde frem til ligesindede der, 
hvor man bor. 

Derfor vil VI & VIC tilbyde 
sig som bindeled mellem 
VIC-brugere, som ønsker 
kontakt, hvad enten det dre¬ 
jer sig om at hjælpe hinanden 


med programmering eller an¬ 
dre tekniske problemer, eller 
det bare gælder kammerat¬ 
ligt samvær. 

Benyt kuponen her på siden, 
hvis du gerne vil have dit navn 
og adresse i bladet. Det ko¬ 
ster ingenting, men til gen¬ 
gæld må meddelelsen være 
kort - og den må ikke have et 
kommercielt indhold. Men 
der må gerne stå et par ord om 


det, hvis der er specielle pro¬ 
blemer, der interesserer dig i 
VIC-sammenhæng. 

På samme måde vil VI & VIC 
også være behjælpelig med at 
støtte lokale klubarrange¬ 
menter ved at viderebringe 
meddelelser i bladet om tid, 
sted og emne for møderne. 
Men husk, at VI & VIC kun er 
på gaden hveranden måned, 
så det gælder om at være i god 
tid. Redaktionen slutter tre 
uger før udgivelsen, som er 
den første dag i alle de »lige« 
måneder. 

Hvis du ikke vil klippe i bla¬ 
det, er det i orden at skrive 
kuponen af eller tage en foto¬ 
kopi. 


VlC-kontakten 

Navn:_ 

Adresse:_ 


Postnr.:_ 

BY:_ 

Tlf.: _ 

Bemærkninger: 


Kuponen sendes til VI & 
VIC, Kornager 29, 7100 
Vejle. 
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VIC 


Hjælp til lektierne 
naturligvis med VIC 


De regnelærer-programmer, 
der har vundet en vis udbre¬ 
delse, er træningsprogram¬ 
mer, hvor computeren for¬ 
mulerer en opgave og giver 
eleven mulighed for at prøve 
kræfter med den. Derefter 
kontrollerer programmet, 
om der er regnet rigtigt og 
giver eventuelt en chance til. 


Men hvad gør man, hvis ele¬ 
ven selv vil skrive sin opgave 
(fra regnebogen)? Program¬ 
met skal gerne køre let og 
ubesværet, så computeren ik¬ 
ke bare kommer til at fungere 
som en lommeregner, hvor 
man bagefter regner ud, om 
man nåede til det rigtige re¬ 
sultat. Denne opgave har gi¬ 
vet mindst én af vore læsere 
grå hår i hovedet, for proble¬ 
met kræver, at man går en lil¬ 
le omvej. Det gælder om at få 
lagt et mere eller mindre sam¬ 
mensat udtryk ned i en varia¬ 
bel i computeren - mens pro¬ 
grammet afvikles. 


To løsninger 

Vi kan her tilbyde to løsnin¬ 
ger. En nem og en lidt mere 
kompliceret, men også mere 
avanceret løsning. En af van¬ 
skelighederne består i at få 
computeren til at forstå de 
parenteser og regnetegn, som 
ikke kan bruges i en INPUT- 
sætning. Man kan selvfølge¬ 
lig lade computeren læse ud¬ 
trykket som en streng-varia¬ 
bel, men det får man ikke ud¬ 
ført noget regnestykke af. 

I den korte løsning skriver 
computeren på skærmen: 
OPGAVE = 

og derefter bruges GET$ til at 
hente tegnene fra tastaturet. 

I vort lille eksempel er den 
blinkende cursor på skær¬ 
men hjemmelavet (i linie 30). 
Efterhånden som man skri¬ 
ver sine tegn, bliver de 
PRINTet på skærmen, og 
når man er færdig med at de¬ 
finere sit regnestykke, tryk¬ 
ker man RETURN. 


Programmet slutter 

Herved standser program¬ 
met, og på skærmen står 
RE AD Y, og nedenunder blin¬ 
ker cursoren - men ikke ret 
længe. For lige inden END- 
kommandoen i linie 199 er 
der sket en hel masse spæn¬ 
dende ting i linie 100 og 110. 


Her er nemlig på skærmen 
blevet PRINTet »GOTO 
200«, og derefter er der PO- 
KEt en række tal ind i de hu¬ 
kommelsespladser, der hører 
til tastaturets buffer. D.v.s. 
det lille lager, som gør det 
muligt at skrive en lille smule 
foran computeren. 


I linie 110 står der først 
POKE 198,8. Denne ordre 
giver VIC besked om, at der 
står 8 tegn i tastaturbufferen 
og venter. 


VlC^TOR har -faet 



en venlig regnelærer 


Derefter POKEs tallet 145 
ind i pladserne 631 til 636 - 
hvilket får cursoren til at be¬ 
væge sig seks linier op på 
skærmen, når den første del 
af programmet slutter. De to 
sidste pladser i tastaturbuffe¬ 
ren, som vi har udnyttet er 
637 og 638, hvor vi har gemt 
tallet 13. 13 står for RE¬ 
TURN, og den første RE- 


REGNESTVKKER 

************ 


10 F'R I NT " HSWSKR IV OPGAVEN:«" : PR I NT "OG TRVK »RETURN S" 

2ø PRINT"XDPGAVE* "i 

30 GETfl* : PRINT" II" > ■ FORT* 1 TO 1 øø '■ NEMT : IFAf=" "THENPRINT"iSIH" ; : FORT* 1 TO 1 øø : NEMT : GOT 
03ø 

35 IFRf=CHRf < 13 ) THEN 1 øø 

36 IFRf=CHRf < £ø)THEN60 

40 I FAf< " (. " 0RAf> " 9 " THEN30 
5ø IFAf*" , "THEN30 
6ø PRINTAf;:G0T030 
1Øø PR INT:PRINT:PRINT = PR INT"GF200" 

1 lø POKE 198.. 8 : F0RT-631T0636:POKET, 145 = NEMT ■ F0RT=63?T0638 : POKET, 13 : NEMT 

199 END 

200 PR INT" TH":FORT*1 TOS■PRINT" ":NEMT : PR INT"HAR DU EN LØSNINO?" 

210 INPUTL : I FL=0PTHENPR I NT " DET ER HELT RI GT I GT" : G0SUB9.99 : RUN 

220 PRINT"FORKERT" : F=F+1 

23ø IFFC3THENPRINT"PRØV I GEN"=G0T021ø 

24ø PRIHT"LØSNINGEN ER" : PRINTOP:G0SUB999:RUN 

999 GETSf:IFSf*""THEN999 

løøø RETURN 
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TURN udløses, når cursoren 
befinder sig i det regnestyk¬ 
ke, vi skrev på skærmen. Re¬ 
sultatet bliver derved lagt ned 
i variablen OP(gave). På det¬ 
te tidspunkt befinder curso¬ 
ren sig på linien med ordene 


EVA LUFTTØR PROGRAM 

****************** 


GOTO 200, og her udløses 
den anden RETURN, hvilket 
får programmet til at starte 
igen - men denne gang fra li¬ 
nie 200. Det er nødvendigt at 
bruge GOTO og ikke RUN, 
fordi RUN ville slette alle de 


variable, og altså også resul¬ 
tatet af vort regnestykke. 


På denne måde har vi opnået, 
at computeren kender resul¬ 
tatet af regnestykket, uden at 


det har stået på skærmen, og 
sidste halvdel af programmet 
giver nu brugeren tre chancer 
til at regne rigtigt. Vi vil over¬ 
lade det til interesserede læse¬ 
re at peppe programmet op 
med elegante skærmbilleder 
og passende lyd til at indikere 
rigtigt eller forkert svar. 

Læg mærke til, at der i begyn¬ 
delsen af programmet er ta¬ 
get forholdsregler imod at 
andet end tal, regnetegn og 
parenteser accepteres. 


Evaluator 

Det program, vi netop har 
gennemgået, fylder ikke 
meget, men det har den ulem¬ 
pe, at det kræver skærmen til 
sin rådighed, og det kan må¬ 
ske være et problem. 

Vi ser heller ikke bort fra den 
mulighed, at der er læsere, 
som foretrækker en mere so¬ 
fistikeret løsning, og den føl¬ 
ger så her i form af en »Nu¬ 
merisk evaluator«. 

En meget central linie i pro¬ 
grammet er linie 10, hvor va¬ 
riablen Z er defineret som en 
masse tomme pladser efter¬ 
fulgt af + 0. 

Nu gælder det bare om at få 
anbragt de tal, parenteser og 
regnetegn, der er brug for i li¬ 
nie 10 efter lighedstegnet og 
før + 0. Det sker ved at pro¬ 
grammet undersøger de tegn, 
man taster ind for at sikre, at 
de er acceptable, hvorefter de 
POKEs ned i brugerRAM- 
MEN -faktisk lige nøjagtig 
ned i programmets linie 10. 
Denne manøvre vil kunne 
lykkes, hvis man har nøjagtig 
styr på, hvor i RAM, de tom¬ 
me pladser i linie 10 befinder 
sig - og skriver man program¬ 
met nøjagtig som det er ge¬ 
ngivet her, vil de tomme plad¬ 
ser være at finde fra hukom¬ 
melsesplads 4218 som angiv¬ 
et ved programmets start 
(RA = 4218). Har man udvi¬ 
det hukommelsen til mere 
End 8 K i alt, skal dette tal 
forøges med 512, så der blot 
skal skrives RA = 4730 i linie 
1 . 

I begge programmerne kan 
man anvende DELete-knap- 
pen. 


1 RA=4£18 : G0T0208 

2 21=21 + 1: F'OKE C RA+21), ASC < 2$) : IF21 =78THEN 14 
4 GOTO35 

6 IF2700THEN14 

8 IF21 <70THENF0RZ2=Z 1 +1T070 = POKE < RA+Z2 ) , 32 '• NEXTZ2 
1@ 2= +@ 

12 IFZ*=CHR*< 36)GOTO14 

13 PRINT:RETURN 

14 PRINT"RIP" 

3ø 21=0: Z£=ø : Z6-Q : 27=0 = 2S’=ø : 28=ø : 2$= " " 

35 GETZT : I F2*= " "THENOOSUB142 '• G0T035 

40 I FZtOCHR* <2ø > THEN5S 

45 IFZ1=øTHEN28=ø = 28=0 = G0T035 

50 PR I NT " II" ; :21=21-l: Z$=CHR$ < F'EEK < RA+21 ) > = GOSUB152 ■ 28=Z9 : 26=ø : G0T035 
55 I FZ*=CHR* < 13 > ORZ$=CHR$ < 36 > THEN6 

60 PRINT2#; : GOSUB 152 : 0N29G0T0104.• 1 lø.. 66, 68, 7ø, 72, 74, 76, 78, 8'ø, 15 ø 

66 26=ø:2T=CHR$<170)'GOTO11ø 

68 26=ø:2T=CHRTC 171>:GOTO110 

7ø 26=ø:27=27+1:GOTO110 

72 26=0:27=27-1 : GOTO11ø 

74 26=0:Z$=CHR$<172 > : GOTO11ø 

76 26=0•2t=CHR#< 173):GOTO 110 

78 Z6=ø : 2st=CHRt a 74 ) : GOTO 11 ø 

8ø Z$*CHR$ C 255 > : GOTO 110 

104 IFZ6=ØTHEN26=1:GOTO110 

lø6 GOTO15ø 

llø IF21 = 0THENON29G0T0140, 14ø, 140.. 140 ..140,150,150.150, 150, 140 
1 i 2 OHZ8GOTO116,118,12ø,122,124,126,128,130,132,134 
116 0N29G0T0150,140,150,15ø,15ø,150,150,150,150,15ø 
118 0N29G0T0140,140,140,140,150,140,140,140,140,150 
120 0NZ900T014ø,140,150,150,140,150,150,150,150,140 
122 0NZ3G0TQ14ø,148,15ø,15ø,l40,150,150,15ø,150,148 
124 0N29G0T0140,148,140,140,140,150,150, 150,15ø,140 
126 0NZ900T0150,150,140,140,150,140,140,140,140,150 
128 0NZ9G0T0140,140,140,140,140,150,150,150,150,140 
13ø 0N29G0T0140,140,140,140,140,15ø,150,150,150,140 
132 0HZ3GØT0140,140,14ø,15ø,140,150,150,150,150,140 
134 0N29G0T015ø,150,140,140,150,150,140,140,140,150 
14ø 28=29 : G0T02 

142 FQRZ4= .1 TO 1 øø : NEXT : PR I NT " _ll" : F0RZ4= 1 TO 1 øø : NEXT : PR I NT " II": RETURN 
144 GETZf:IFZf=""THENGOSUB142 : GOTO144 
146 RETURN 

150 PR I NT "II"; : G0T035 

152 IF2*:=CHR*<46)THENZ9=1 : GOTO174 

154 IFZ*=CHR* < 43 >ORZf»CHRt< 170 > THENZ9-3:GOTO174 

i 56 I F2$=CHR* < 45 ) ORZ$=CHR$ <171 ) THENZ.9=4 : GOTO 174 

158 IFZ#=CHR$ < 4ø > THENZ9=5 : GOTO174 

16ø IFZf=CHR$ C41> THEN29=6:GOTO174 

162 I FZ*=CHR* <42 ) øRZ$=CHR* <172) THEN2.9=7: GOTO 174 

164 I F2$=CHR$ < 47 >0RZt=CHR* <173) THENZ9=8 : GOTO 174 

166 IFZ*=CHR*<94)0R2*=CHR* <174)THEN29=9:GOTO174 

168 IFZ*=CHRf<222)ORZ$=CHR$ < 255)THENZ9*1ø:GOTO174 

17ø IFZ*0CHR$<48)0RZ$>CHR*<57)THENZ9»11:GOTO174 

172 29=2 

174 RETURN 

2øø REM ++++++++ EXAMPLE +++++++++ 

210 PRINT'73 DATA " ; : G0SUB30 = PRINTZ 
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Lysavis giver 
instruktioner 
uden at ødelægge 
skærmbilledet 


Har man brug for at give en 
længere instruktion på skær¬ 
men uden at ødelægge mere 
end den øverste linie i skærm¬ 
billedet, kan dette program 
bruges - men man kan natur¬ 
ligvis også bruge det uden at 
det er strengt nødvendigt. 
Måske er det bare sjovt at la¬ 
ve sin egen lysavis på VIC. 
Teknikken i programmet er 
den enkle, at den tekst, der 
skal vises i lysavisen, gemmes 
i data-sætninger i program¬ 
mer - men der ville naturligvis 


ikke være noget i vejen for, at 
man hentede teksten fra bånd 
eller diskette. 

Programmet er konstrueret 
som en subrutine, der i øver¬ 
ste linie på skærmen 
PRINTer en streng, der hele 
tiden gøres et tegn kortere i 
venstre side, mens der føjes et 
nyttegn til i højreside. Denye 
tegn hentes med READ A$ (i 
linie 30) hver gang det hidtidi¬ 
ge indhold af A$ er »brugt 
op«. Når programmet har 
kørt så længe, at man når 


stjernen, der er den sidste va¬ 
riabel i data-sætningerne, 
starter man forfra med RE- 
STORE. 

For at komme ud af subruti¬ 
nen, skal man trykke på en 
hvilken som helst tast. Det vil 
i linie 32 føre frem til RE¬ 
TURN. 

Hvis man bruger denne sub¬ 
rutine i et program, hvor der 
også på anden måde benyttes 
READ-instruktioner, må 
man være opmærksom på ri¬ 
sikoen for at få blandet de 
forskellige sæt data sammen. 
Den enkleste måde er at be¬ 
nytte RESTORE og så »tæl¬ 
le« sig så langt frem i data¬ 
sætningerne, der er brug for. 
I det viste eksempel er der 10 
variable gemt i data-sætnin¬ 
gerne fra linie 1000 til linie 
1010. Hvis man placerer flere 
data, som skal bruges i en an¬ 
den sammenhæng, ville man 
være nødt til at læse de første 
10, inden man kan læse dem, 
det egentlig drejer sig om. 


Programmet skulle så inde¬ 
holde disse linier: 

100 RESTORE 
110 FOR I = 1 TO 10: 

RE AD A$: NEXT 
120 READ A$ 
o.s.v. 


Memory 
map til 
Commo 
dore64 

Den danske brugervejled¬ 
ning til Commodore 64 nåede 
at blive færdig (næsten) sam¬ 
tidig med, at denne storebror 
til VIC-20 blev præsenteret 
for det danske publikum. 

Den er en lille håndbog i A5- 
format med en praktisk spi¬ 
ralryg, der gør den egnet til at 
blive brugt - og til at blive 
brugt meget. 

Ligesom i VIC-20-brugervej- 
ledningen gives der nye com¬ 
puterbrugere en grundig ind¬ 
føring i BASIC-programme- 
ring, så man ikke behøver 
være bange for at gå i gang 
med 64’eren. Foruden de for 
VIC-brugere kendte emner 
vedrørende anvendelse af 
farver og grafik er der i bru¬ 
gervejledningen gjort om¬ 
hyggeligt rede for den mere 
avancerede brug af farver, 
der er mulighed for i Com¬ 
modore 64. Denne maskine 
råder jo over 16farverpå teg¬ 
nene, hvor VIC »kun« har ot- 



lø RESTORE:Nf=" 

£ø READfif 

3ø IFAf=""THENRERDAf ; Af=" "+Af 

31 Nf=Nf+LEFT$ CAf, 1 ) : Rf=M I Bf <. Rf, 2) : PR I NT "33" Nf 

32 GETSf : IFSfO" "THENRETIJRN 
35 F0RD=1T077 : NEXT 

40 I FLEN < Nf ;■ >21 THENNf=M J. Df < Nf, 2 > 

45 IFflfO"#"THEN30 
5ø RESTORE 
60 G0T030 

1000 DATRDETTE ER ET EKSEMPEL DER SKRL VISE HVORDAN MAN KAN FAR 
løøl DATREN LILLE LVSRVIS TIL AT LØBE HEN OVER TOPPEN AF 

1002 DRTRTV-BILLEDET. DET KfiN F.EKS. ANVENDES HVOR MAN VIL 

1003 DATA GIVE EN LANG FORKLARING ELLER INSTRUKTION UDEN AT FJERNE 

løø4 DRTRDET BILLEDE DER FOR TIDEN ER SYNLIGT. DET GARR KUN UD 
løø5 DRTAOVER DEN ØVERSTE LINIE PAR SKAERMEN. PROGRAMMET ER 

1006 DATAINDRETTET SAR DET BLIVER VED MED AT GENTAGE TEKSTEN INDTIL 
løø7 DRTAMRN TRYKKER F'RA EN ELLER ANDEN TAST - LIGEMEGET HVILKEN 
1010 DATA" 

READY. 


te forskellige. 

På samme måde har både 
sprite-grafikken og den me¬ 
get avancerede lyd fået hver 
sit kapitel i brugervejlednin¬ 
gen, og man må complimen- 
tere forfatterne til denne vej¬ 
ledning med den idé, de har 
fået med at anbringe Com¬ 
modore 64 memory map på 
de sidste sider i brugervejled¬ 
ningen. Mange har brug for 
mere detaljerede oplysninger 
om, hvor i computeren, der 
foregår de forskellige ting - 
både når man vil bruge PEEK 
og POKE, og når der er tale 
om egentlig maskinkode¬ 
programmering. 
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VIC programmer 


Lad andre få mulighed for at 
købe de programmer, du ud¬ 
vikler til VIC. 

Rubrikannoncerne her i bla¬ 
det koster 1 kr. pr. spaltemil¬ 
limeter, og for overskuelig¬ 
hedens skyld bør annoncerne 
bygges op på samme måde, 
som det kan ses her på siden. 
Det vil sige, at annoncetek¬ 
sten skal indeholde oplysnin¬ 
ger om nødvendigt udstyr, 
hvilket medium, program¬ 


met findes på (kassettebånd, 
disk eller cartridge), prisen - 
og naturligvis oplysninger 
om, hvor man kan købe 
programmet. 

Brug kuponen til din annon¬ 
ce. 

Grafik-Editor 

Superavanceret editor-pro¬ 
gram, med masser af hjæl¬ 
pefunktioner, til at lave bru¬ 


VIC program sælges 

Programmets navn: ____ 

Beskrivelse: ___ 


Hardware:___Medium: 

Pris: __ 

Købes hos: ____ 


Kuponen sendes til VI & VIC, Kornager29, 7100 Vejle. 


ger definerede tegn med. 
Der medfølger anvisninger 
om hvordan man gør sine 
spil mere »Livagtige«, de¬ 
mo-programmer, der viser 
eksempler på bevægelig gra¬ 
fik samt udførlig anvisning i 
brugen af editoren. 
Grafik-editoren fås også i en 
mindre avanceret udgave til 
VIC 20+ 3 K ram (75 kr.). 
Yderligere oplysninger kan 
tilsendes. 

Hardware: VIC-20 + 8 K 
ram. 

Medium: Kassette. 

Pris: 100 kr. (Kun 

Check/efterkrav) 

Købes hos: Arno Greve An¬ 
dersen, Vibækvej 15, 5250 
Odense SV. 


Spil m.m. 

Enarmet tyveknægt, Lande¬ 
vejs race, Bio-rytmer med 4 
kurver, renteberegning- 
pantebreve), ostespiseren 
og terningespil for 4. 
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Hardware: VIC-20 3,5 K 
ram. 

Medium: Kassettebånd. 
Pris: 100 kr. med bånd 
(Check). 

Købes hos: Tommy Larsen, 
Vanløse Alle 2th., 2720 
Vanløse, tlf. 01 - 74 60 21. 


Monitor 

Simpel maskinkodemonitor 
med kommandoerne .m, .1, 
.s, .r, .g og .x, samt basic 
udvidelse med følgende 
hjælpeinstrukser: find, 

change, number og delete. 
Skriftlig brugsanvisning 
medfølger. 

Hardware: VIC, alle størrel¬ 
ser. 

Medium: Kassettebånd. 
Pris: 120,- kr. (check). 
Købes hos: Chr. Dirksen, 
Anneksgårdsvej 8, Gundsø- 
magle, 4000 Roskilde. 


©AYA 
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Endelig! 

NYTT BLAD 

Har du datamaskin, men savner et blad med stoff og pro¬ 
grammer? Vi har allerede gitt ut 4 nummer av Norges første 
og eneste blad for personlige computere. Og allerede fra 
starten av var det en stor suksess. Bladet inneholder mange 
programmer for både ZX81 og VIC-20.1 tillegg er det tester 
og opplysninger om andre aktuelle datamaskiner. Vi øns¬ 
ker nå at datavenner i hele Norden skal slutte seg til oss. 

Vi er dessverre utsolgt for alle bladene i 1982. Men er du 
rask kan du skaffe deg det første nummeret for 1983. Bladet 
kommer ut hver måned (10 ganger pr. år) og et åi »abonne¬ 
ment koster Skr. 178,- Dkr. 215,-. Ønsker du å slutte deg til 
oss, er det bare å sende oss navn og adresse. Hvis du i 
tillegg vil si oss hvilken datamaskin du bruker, og hvor 
gammel du er, så vil vi være glade for det. 

Vår adresse er: 

Hobbydata, G. Vigelandsgt. 18, 

Tlf (04) 66 61 12 
4300 Sandnes 
NORGE 
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O VIC-20 computer 

Det private computersystem starter med VIC-20 - hjemmecompute¬ 
ren fra Commodore. Verdens første fuldt udbyggede farvecomputer 

tii kr. 2.995,- 

VIC-20 kan udbygges til et enkelt eller mere avanceret system efter 
ønske og i takt med brugerens behov. Til privat brug. Til undervis¬ 
ning. Til forretningsbrug. 

VIC-20 har skrivemaskinetastatur. 8 funktionstaster. 255 farvekom¬ 
binationer. 64 grafiske tegn. Musikgenerator. Intern hukommelse 
op til 32K RAM. Tilsluttes alle TV-apparater og monitorer. 

O VIC-1530 kassettestation 

Det første skridt mange tager, når de udbygger deres ViC-compu- 
lersystem. Kassettestationen kan bruges til datalager eller til over¬ 
førsel af programmer. Pris: kr. 1.035,-. 

O VIC-1540 disketlesfalion 

Diskettestationen giver mulighed for det fulde udbytte af VlC-com- 
putersystemet. Lagerkapaciteten udvides til I70K bytes. Op til 4 di- 
skettestationer kan kobles til samtidigt. Velegnet til programudvi- 
kling. Hurtig dataoverførsel. Pris: kr. 6.495,-. 

O VIC-1515 printer 

Rigtig papirprinter. 80 karakterer og en hastighed på 30 tegn/sek. 

Pris: kr. 4.945,-. 

O VIC-1020 moder-modul 

Dette modul er bl.a. nødvendigt for at udnytte V1C fuldt ud. Gør 
det muligt samtidig at tilslutte f.eks. 3 - 8 og I6K RAM, superexpan- 
der, etc. Pris: kr. 2.280,-. 


0 Udvidelse af hukommelse 

VIC-20's hukommelseskapacitet kan udvides med 3K til 27K RAM. 

O VICMON 

Gør det muligt at programmere i maskinsprog. Pris: kr. 400,-. 

O VIC-1211A Superexpander 

Giver højopløst grafik og ekstra kommandoer til plotning, farve¬ 
lægning, etc. Pris: kr. 595,-. 

O VIC-1212 Programmers aid pack 

Et godt hjælpeværktøj ved programmering. Giver 14 ekstra kom¬ 
mandoer. Pris: kr. 495,-. 

© VIC-1311 joy stick 

Til spil og lignende. Pris: kr. 95,-. 

© Brugerhåndbog 

Der findes let forståelig dansk brugerhåndbog til V1C, som også på 
enkel og klar måde fortæller om BASIC. Hveranden måned udkom¬ 
mer brugerbladet VI & VIC, som kan købes i løssalg eller abonne¬ 
ment med VIC-nyheder. 

. Find nærmeste autoriserede VIC-forhandler på listen og kom ind og 
prøv VIC hjemmecomputeren. 

Alle priser er incl. moms. 

ft commodore 

^COMPUTER 

05 - 64 1 1 $S eller 01 - 88 IS OS 


ØERNE: Ballerup: Mie Kasseapparaier. 02-655111. Bornholm: Krogh Hansens Radio & TV, 03-998127. Herlev: W. Rolf Pedersen, 02-915511. Hillerød: Bo-el Daia, 02-253131. Holbæk: 
Papirgården. 03-433003 København: BN Elektronic. 01-811900 og 01-184555. CR-Commander Radio, 01-343422. LA Elekironik Kbh., 01-551540. Betafon Radio, 01-310273. Sam¬ 
fundslitteratur. 01-351942. Poly Data Microcenter, 01-420705. W. Rolf Pedersen, 01-137056. Lyngby: BN Elektronik, 02-881900. Polyteknisk Boghandel, 02-881488 Maribo: JD Totalin- 
formation. 03-881700. Odense: Dansk Totalinformalion, 09-126488. EDB Butikken, 09-147660. Fl. Kjerulff, 09-135480. Otlerup: Werners Radio Elektronik, 09-823333. Ringsted: Ahrent 
Flensborg. 03-610011 Rødovre: Datacare, 01-705858 Slagelse: Vest Sjællands Mikrodata. 03-534707. Si. Heddinge: JE Kontorcenter, 03-703332. Svendborg: Jens Bach Kontordata, 
09-212788. Viby. Sj.: Baagøe Radio. 02-394100. Vordingborg: Kontorforsyningen, 03-770170. GRØNLAND: Godthåb: Godthåb Elektronikservice. 21865. Julianehåb: Musikhuset Julia- 
nehåb. 01-438133. JYLLAND: Aalborg: Knud Engsig Kontorudstyr. 08-126666. H. C. Elektronic, 08-142314. Esbjerg: Kurt Øland, 05-125299. Fredericia: Semicap Data. 05-931565. 
(.ram: Teknik Huset. 04-822711. Grenå: Djursland Data. 06-326465. Haderslev: H. C. Reimers, 04-523714. Hadsten: Hadsten Elektronik. 06-980408. Herning: Logic Design. 07-221300. 
Hjørring: Norad, 08-960188. Holstebro: Pe-Co Computer System, 07-414646. Horsens: Dansk Computer Center, 05-611110. Kolding: Hauge Rasmussen Foto, 05-520070. Randers: Djurs¬ 
land Data. 06-434200 Ringkøbing: LP Musik. 07-322511. Skanderborg: Bildata, 06-525344 Skive: Elektroniklageret, 07-526177. Struer: Helmholt Elekironik, 07-852611 Sønderborg: G. 
P Kontorsystemer. 04-424546. Vejle: 2R Data, 05-831600. Århus: Akademisk Boghandel. 06-128844. Clemens Papirteknik. 06-133922. Editor. 06-127720. 
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